home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / debug / memmon.dir / 00058_Script_58 < prev    next >
Text File  |  1995-02-15  |  1KB  |  54 lines
  1. -- Quick and Dirty Monitor color depth movie in a window.
  2. -- Alex Zavatone - 5/27/94 3360 Scott St. #3 SF CA 94123
  3.  
  4.  
  5.  
  6. On DoDelay delay 
  7.   -- This handler takes the place of the delay command.  The delay command only works in a frame script
  8.   set startTime = the ticks
  9.   set gDelayTime =  delay * 60
  10.   repeat while the ticks < startTime + gDelayTime
  11.   end repeat
  12. end
  13.  
  14.  
  15. On ExpandWindow
  16.   set wind = getAt(the windowlist, 1)
  17.   set leftSide = getAt(the rect of wind, 1)
  18.   set topSide = getAt(the rect of wind, 2)
  19.   set rightSide = getAt(the rect of wind, 3)
  20.   set bottomSide = getAt(the rect of wind, 4)
  21.   set the rect of wind = rect(leftSide, topSide, leftSide + 160, bottomSide)
  22. end
  23.  
  24. on HandleButtons
  25.   set the ink of sprite 12 = 0 
  26.   set the ink of sprite 13 = 0 
  27.   set the ink of sprite 14 = 0
  28.   set the ink of sprite 15 = 0
  29.   set the ink of sprite 16 = 0
  30.   set the ink of sprite 17 = 0
  31.   
  32.   if the colordepth = 8 then 
  33.     set the ink of sprite 15 = 34
  34.   else
  35.     if the colordepth = 16 then 
  36.       set the ink of sprite 16 = 34
  37.     else
  38.       if the colordepth = 32 then 
  39.         set the ink of sprite 17 = 34
  40.       else
  41.         if the colordepth = 2 then 
  42.           set the ink of sprite 14 = 4
  43.         else
  44.           if the colordepth = 1 then 
  45.             set the ink of sprite 13 = 4
  46.           end if
  47.         end if
  48.       end if
  49.     end if
  50.   end if
  51.   updateStage  
  52. end
  53.  
  54.